home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 013a / mexlas.zip / TXINSURE.PRG < prev    next >
Text File  |  1991-09-01  |  3KB  |  77 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXINSURE.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit(_print_port)
  12. txreset()
  13. txpagesize("letter")
  14. txorient("P")
  15. txsetlpi(6)
  16.  
  17. txhcfa15(1)                && CREATE HCFA1500 FORM TO MACRO #1
  18.                            && WE CREATE A MACRO TO SAVE DOWNLOADING
  19.                            && TIME BY ONLY DOWNLOADING IT ONCE THEN
  20.                            && USING THE TXOVERLAY() FUNCTION TO PRINT IT
  21.  
  22. txgraphic(02, 03, "texlogo.pcl", 2)  && CREATE LOGO MACRO #2
  23. txgraphic(55, 03, "signture.pcl", 3) && CREATE SIGNATURE MACRO #3
  24.  
  25. for i = 1 to 3
  26.    txcour12r()             && SET FONT TO COURIER 12 POINT
  27.  
  28.    txcolprint(09, 02, .f., "Patient's Name "+str(i))
  29.    txcolprint(09, 35, .f., "06/30/28")
  30.    txcolprint(09, 52, .f., "Insured's Name "+str(i))
  31.    txcolprint(11, 02, .f., "Patient's Street Address")
  32.    txcolprint(11, 37, .f., "X")
  33.    txcolprint(12, 02, .f., "Patient's City/State/Zip Code")
  34.    txcolprint(15, 32, .f., "X")
  35.    txcolprint(18, 41, .f., "X")
  36.    txcolprint(24, 52, .f., "SIGNATURE ON FILE")
  37.    txcolprint(25, 07, .f., "SIGNATURE ON FILE")
  38.    txcolprint(25, 40, .f., dtoc(Date()))
  39.    txcolprint(28, 35, .f., dtoc(Date()))
  40.    txcolprint(31, 35, .f., "LIC#-G045623")
  41.    txcolprint(32, 07, .f., "PHYSICIAN'S NAME")
  42.    txcolprint(36, 03, .f., "162.9     MALIGNANT NEOPLASM - LUNG/BRONCHUS")
  43.    txcolprint(37, 03, .f., "197.7     MALIGNANT NEOPLASM - LIVER")
  44.    txcolprint(38, 03, .f., "558.10    ENTERITIS/COLITIS FROM RADIATION")
  45.    txcolprint(43, 14, .f., "4")
  46.    txcolprint(43, 18, .f., "9VBATT")
  47.    txcolprint(43, 27, .f., "9 VOLT BATTERY")
  48.    txcolprint(43, 48, .f., "1,2,3")
  49.    txcolprint(43, 55, .f., "0000000")
  50.    txcolprint(43, 64, .f., "2")
  51.    txcolprint(55, 55, .f., "9999999")
  52.    txcolprint(56, 37, .f., "X")
  53.    txcolprint(58, 05, .f., dtoc(Date()))
  54.    txcolprint(60, 05, .f., "91-2010-PCA-4")
  55.  
  56.    txlnprt85()             && SET FONT TO LINE PRINTER 8.5 POINT
  57.    * Remember the Columns change to the columns per inch of the font
  58.    * In the case of LP85 the columns per inch is 16.67
  59.  
  60.    txcolprint(43, 02, .f., dtoc(Date() - 14) + "  " + dtoc(Date()))
  61.    txcolprint(57, 85, .f., "Childrens Hospital and HomeCare")
  62.    txcolprint(58, 85, .f., "9823 Pacific Heights Blvd., Ste. N")
  63.    txcolprint(59, 85, .f., "San Diego, CA  92121")
  64.  
  65.    txoverlay(1)            && PRINT HCFA1500 FROM MACRO #1
  66.  
  67.    * SEE DOCUMENTATION FOR DIFFERENCE BETWEEN MACRO OVERLAY AND EXECUTE
  68.  
  69.    txmacexec(2)            && PRINT LOGO FROM MACRO #2
  70.    txmacexec(3)            && PRINT SIGNATURE FROM MACRO #3
  71.  
  72.    txpsource(0)            && PRINT CURRENT PAGE AND EJECT
  73. Next
  74.  
  75. txclear()
  76. *: EOF: TXINSURE.PRG
  77.